home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / GENERATE.SAB < prev    next >
Text File  |  1991-07-02  |  4KB  |  156 lines
  1. LABEL START
  2.   SET NULL " "
  3.   CLS
  4.   LABEL START2
  5.   SET ERROR MESSAGE OFF
  6.   SET MESSAGES OFF
  7.   SET BELL OFF
  8.   SET ESCAPE ON
  9.   GOTO SELECTION
  10. LABEL TEST1
  11.   CLS
  12.   WRITE "XXX Statement Print Test" AT 1,30
  13.   FILLIN Y/N USING "Would You Like To Print A Statement Print Test?   " at 20,1
  14.   LABEL AGAIN
  15.     IF Y/N = "Y" THEN
  16.     OUTPUT PRINTER
  17.     PRINT NOT.TST WHERE LIMIT = 1
  18.     OUTPUT SCREEN
  19.       ENDIF
  20.   IF Y/N = "Y" THEN
  21.      CLS
  22.   FILLIN Y/N USING "Would You Like To Run Another Test Setup?   " at 20,1
  23.     IF Y/N = "Y" OR Y/N = "YES" THEN
  24.      GOTO AGAIN
  25.     ENDIF
  26.    ENDIF
  27.   CLS
  28.   goto .TOFROM
  29. LABEL SELECTION
  30.   CLS
  31.   display cp.dis
  32. write "GENERATE.SAB" at 2,36
  33.   Write "Statement Generation Menu" at 7,27
  34.   WRITE "   1.    Single Statement" AT 9,10
  35.   WRITE "   2.    Statements For A Group (I.E. MEN02624)" AT 10,10
  36.   WRITE "   3.    Statements For All Accounts Showing A Balance Due" AT 11,10
  37.   WRITE "   4.    Batch Statements" AT 12,10
  38.   WRITE "   5.    Exit Statement Program" AT 13,10
  39.   FILLIN SELECT USING "Enter Selection (1 - 5)  " AT 16,12
  40.     IF SELECT < 1 OR SELECT > 5 THEN
  41.     GOTO SELECTION
  42.       ELSE
  43.     GOTO .SELECT
  44.     ENDIF
  45. LABEL 1
  46.   CLS
  47.   display cp.dis
  48. write "GENERATE.SAB" at 2,36
  49.   WRITE "Single Statement Generation" AT 7,26
  50.   SET ERROR VARIABLE errval
  51.   FILLIN ADDCODE USING "Enter Address Code ->  " AT 10,15
  52.     SET POINTER #1 errptr2 FOR CUR.MAST WHERE ADD.CODE EQ .ADDCODE
  53.     IF ERRPTR2 EQ 0 THEN
  54.        SET VAR TOFROM TO GOOD1
  55.   GOTO TEST1
  56.   LABEL GOOD1
  57.   OUTPUT PRINTER
  58.     PRINT NOTICE WHERE ADD.CODE = .ADDCODE AND LIMIT = 1
  59.   OUTPUT SCREEN
  60.   GOTO END1
  61.     ELSE
  62.     WRITE "Address Code NOT Found To Exist" AT 23,24
  63.     BEEP;BEEP
  64.     FILLIN Y/N USING "Would You Like To Try Again?   " AT 24,26
  65.       IF Y/N = "Y" OR Y/N = "YES" THEN
  66.       CLS
  67.       WRITE "O.K." AT 12,39
  68.       GOTO 1
  69.         ELSE
  70.         GOTO END1
  71.       ENDIF
  72.     ENDIF
  73. LABEL END1
  74.   GOTO SELECTION
  75. LABEL 2
  76.   CLS
  77.   display cp.dis
  78. write "GENERATE.SAB" at 2,36
  79.   WRITE "Processing Statements For A Group" AT 7,23
  80.   FILLIN CODE USING "Enter Group Code:  " AT 12,22
  81.     SET V TOFROM TO 2TST
  82.     GOTO TEST1
  83.       LABEL 2TST
  84.       SET POINTER #1 END FOR CUR.MAST WHERE ADD.CODE CONTAINS .CODE
  85.       IF END = 0 THEN
  86.       OUTPUT PRINTER
  87.       PRINT NOTICE WHERE ADD.CODE CONTAINS .CODE and tot.due > 0
  88.       OUTPUT SCREEN
  89.         ELSE
  90.         WRITE "Selection NOT Found In Current Master File. Please Re-Input" +
  91.         AT 10,15
  92.       GOTO 2
  93.     ENDIF
  94.     GOTO SELECTION
  95. LABEL 3
  96.   CLS
  97.   display cp.dis
  98. write "GENERATE.SAB" AT 2,36
  99.   WRITE "Processing Statements For All Accounts Showing A Balance Due" AT 7,9
  100.   SET V TOFROM TO 3GOOD
  101.     GOTO TEST1
  102.       LABEL 3GOOD
  103.       OUTPUT PRINTER
  104.       PRINT NOTICE SORTED BY ADD.CODE WHERE tot.due > 0
  105.       OUTPUT SCREEN
  106.     GOTO SELECTION
  107. LABEL 4
  108.   cls
  109.   REMOVE TAB STATEMNT
  110.   PROJECT STATEMNT FROM CUR.MAST USING ADD.CODE WHERE ADD.CODE FAILS
  111.     LABEL RETRY
  112.     LOAD STATEMNT WITH PROMPTS
  113.     SET V ERROR TO "N"
  114.     CLS
  115.     WRITE "Checking For Incorrect Address Codes - Please Wait" AT 15,10
  116.     SET POINTER #3 END FOR STATEMNT
  117.       WHILE END = 0 THEN
  118.       SET V CODE TO ADD.CODE IN #3
  119.       SET POINTER #2 EO2 FOR CUR.MAST WHERE ADD.CODE = .CODE
  120.       IF EO2 > 0 THEN
  121.         SHOW V CODE
  122.         WRITE "Found NOT To Exist
  123.         DELETE ROWS FROM STATEMNT WHERE ADD.CODE = .CODE
  124.         SET V ERROR TO "Y"
  125.         SET V EO2 TO 0
  126.       ENDIF
  127.       NEXT #3 END
  128.       ENDWHILE
  129.     IF ERROR = "Y" THEN
  130.     WRITE "Ready To Re-Input Incorrect Data" at 17,24
  131.     SET V ERROR TO "N"
  132.       GOTO RETRY
  133.         ELSE
  134.         SET V TOFROM TO GOOD
  135.           GOTO TEST1
  136.           LABEL GOOD
  137.           OUTPUT PRINTER
  138.           SET POINTER #1 EOF FOR STATEMNT
  139.           WHILE EOF = 0 THEN
  140.           SET V CODE TO ADD.CODE IN #1
  141.           PRINT NOTICE WHERE ADD.CODE = .CODE
  142.           NEXT #1 EOF
  143.           ENDWHILE
  144.         OUTPUT SCREEN
  145.         REMOVE TABLE STATEMNT
  146.       ENDIF
  147.       GOTO SELECTION
  148. LABEL 5
  149.   CLS
  150.    SET NULL "-0-"
  151.    SET MESSAGES ON
  152.    SET ERROR MESSAGES ON
  153. RETURN
  154.  
  155.  
  156.